10 PRINT"[147]":POKE53280,0:POKE53281,0
20 GOSUB 1000
30 GOSUB 1130
40 GOSUB 1180
50 PRINT:PRINT:PRINT
100 END
1000 :  REM STRING-INITIALSIERUNG
1010 B$(1)="[180]"
1020 B$(2)="[181]"
1030 B$(3)="[161]"
1040 B$(4)="[182]"
1050 B$(5)="[170]"
1060 B$(6)=" [146]"
1070 WA$="[152]                    "
1080 WT$="[152]  0%  WORKING 100%  "+"[151] [146]"
1090 WB$="[152]                    "+"[151] [146]"
1100 WC$="[152]  [146]                  "+"[151] [146]"
1110 WD$=" [151]                    [146]"
1120 RETURN
1130 :  REM WINDOW OEFFNEN
1140 PRINTWA$:PRINTWT$
1150 PRINTWB$:PRINTWC$
1160 PRINTWB$:PRINTWD$
1170 RETURN
1180 :  REM BALKEN DARSTELLEN
1190 PRINT"";
1200 FOR X=0TO 15
1210 : GOSUB 1240:PRINT"";
1220 NEXT
1230 RETURN
1240 FOR Y=1TO6
1250 : PRINTB$(Y);+"[157]";:GOSUB1280
1260 NEXT
1270 RETURN
1280 :  REM PAUSENSCHLEIFE
1290 FOR I=0TO 10:NEXT:RETURN